library(ggplot2)

Finches

finches <- read.csv("~/Dev/r-studio-binder/data/finches.csv", header=FALSE)
pca <- princomp(finches, cor=TRUE, scores=TRUE)

Longevity

## 
## Attaching package: 'plotly'
## The following object is masked from 'package:ggplot2':
## 
##     last_plot
## The following object is masked from 'package:stats':
## 
##     filter
## The following object is masked from 'package:graphics':
## 
##     layout
## 
## Attaching package: 'dplyr'
## The following objects are masked from 'package:stats':
## 
##     filter, lag
## The following objects are masked from 'package:base':
## 
##     intersect, setdiff, setequal, union
df <- read.csv("data/szekely-2015-data.csv", header = TRUE)
df_numeric <- df %>%
  dplyr::select_if(is.numeric) %>%
  dplyr::select_if(~ !any(is.na(.)))

Including Plots

You can also embed plots, for example: